home *** CD-ROM | disk | FTP | other *** search
/ A Virtual Reality Guide to Texas / CD.iso / texdata / shared.cst / 00009_loop for spec bullets.ls < prev    next >
Encoding:
Text File  |  1998-06-17  |  1.4 KB  |  51 lines
  1. --on exitFrame
  2. --  global gLastSprite, gTimer, gWhereToReturn
  3. --  
  4. --  if rollover(23) then --check for restart 
  5. --    puppetsprite 23,true
  6. --    set the castnum of sprite 23 to 65
  7. --  else
  8. --    if not(the mouseDown) then puppetsprite 23, false
  9. --  end if
  10. --  
  11. --  repeat with i = 11 to 16 -- button channels
  12. --    if rollover(i) then
  13. --      put i into RollSprite
  14. --      if RollSprite = gLastSprite then
  15. --        exit repeat
  16. --      else
  17. --        puppetSound 2, getAt(["qv210.aif","p70.aif","v70.aif","p50.aif","v50.aif","140.aif"], i-10)
  18. --        puppetsprite i,true
  19. --        puppetsprite 10,true
  20. --        put the castnum of sprite(i) into lastcast
  21. --        set the castnum of sprite(i) to lastcast + 1
  22. --        updateStage 
  23. --        set the castnum of sprite(10) to lastcast - 1
  24. --        puppetTransition 26, 1, 1
  25. --        exit repeat
  26. --      end if
  27. --    end if
  28. --  end repeat
  29. --  
  30. --  if gLastSprite<>RollSprite then
  31. --    puppetsprite gLastSprite, false
  32. --    updateStage    
  33. --    if not(rollover(gLastSprite)) then 
  34. --      sound stop 2
  35. --      puppetsprite 10, false
  36. --      --puppetTransition 01, 1, 20 
  37. --    end if
  38. --    put RollSprite into gLastSprite
  39. --  end if  
  40. --  
  41. --  if (the ticks > gTimer + 60*60) and (the lastEvent > 60*60)then
  42. --    if the castNum of sprite 48 then pauseMovie
  43. --    if soundBusy(1) then sound stop 1
  44. --    clearSprites
  45. --    go gWhereToReturn-1
  46. --  else        
  47. --    go to the frame    
  48. --  end if
  49. --  
  50. --end
  51.